home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / tools / ask / source_ / print10.s < prev    next >
Text File  |  1998-06-22  |  649b  |  29 lines
  1. *--------------------------------------------------------------------
  2. *    １０進数表示
  3. *        FLOAT?必要
  4. *--------------------------------------------------------------------
  5.  
  6.     .text
  7.     .even
  8.  
  9.     .include doscall.mac
  10.     .include fefunc.dis
  11.  
  12.     .xdef    Print10
  13. Print10:
  14. * d0.lを１０進数で表示する
  15.     movem.l    d0/a0,-(sp)
  16.     lea    P10(pc),a0
  17.     pea    (a0)        * 次のDOS PRINTのため
  18.     FPACK    __LTOS        * .dc.w    $fe11 : d0.l(符号つき) -> 10進文字列化
  19.     DOS    _PRINT        * ↑a0は文字列のEOS部分
  20.     addq.w    #4,sp
  21.     movem.l    (sp)+,d0/a0
  22.     rts
  23.  
  24. P10    .dcb.b    12+1,' '    * 32bit整数最大１２桁+EOS
  25.     .even
  26.  
  27. *--------------------------------------------------------------------
  28.     .end
  29.